home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ldosv25d.lha / ldos_demo / examples / ldos / freq.AMOS / freq.amosSourceCode
AMOS Source Code  |  1992-03-05  |  1KB  |  33 lines
  1. ' You'll need the "req.library" in LIBS: on your BOOT-disk!  
  2. ' Also, this library must be present when this extension is BOOTED,
  3. ' since it is only loded and opened once, during startup.  
  4. '
  5.  Extension_10_01EE "sys:"
  6.  Extension_10_049E 50,20 : Rem Pos req at X=50, Y=20
  7.  Extension_10_04B0 15,40,12 : Rem Dev-width=15, File-width=40, height=12 lines 
  8. '
  9. ' Set the filerequesters current directory.  
  10. ' This directory does NOT change the current directory of AMOS or
  11. ' your compiled program. 
  12. Screen Open 1,640,256,8,Hires
  13. Paper 0 : Clw 
  14. Pen 5
  15. Print "Click cancel to stop!"
  16. Wait 50
  17. Repeat 
  18.    Amos To Back 
  19.    ' We want to see the requester won't we ?
  20.    A$= Extension_10_01A0("Choose a file and a Dir!",$2+$4+$10+$40+$1000)
  21.    ' See docs about flags. Cache is turned on!
  22.    Amos To Front 
  23.    Print "Path+Name : ";A$
  24.    ' This is the path AND filename
  25.    ' This will be empty if Cancel was clicked. Freq File and Dir
  26.    ' will STILL contain the last choosen names. 
  27.    Print "     Name : "; Extension_10_0202 
  28.    ' This is the filname, WITHOUT the path  
  29.    Print "Directory : "; Extension_10_0216 
  30.    ' This is the path WITHOUT the filename
  31.    Centre "--- Press A Key ---" : Print 
  32.    Wait Key 
  33. Until A$=""